home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / ctlib100.zip / INSTALL.LZH / BSDVER60.INT < prev    next >
Text File  |  1996-10-12  |  2KB  |  71 lines

  1. {**************************************************************************}
  2. {*  BitSoft Development, L.L.C.                                           *}
  3. {*  Copyright (C) 1995, 1996 BitSoft Development, L.L.C.                  *}
  4. {*  All rights reserved.                                                  *}
  5. {*  Turbo Pascal 6.0 compatibility unit                                   *}
  6. {*  Version 1.1.8                                                         *}
  7. {**************************************************************************}
  8.  
  9. unit BsdVer60;
  10.  
  11. interface
  12.  
  13. uses Objects, BsdTypes;
  14.  
  15. const
  16.   MaxPChar = Pred(MaxWord);
  17.  
  18.   MaxTMemoryStream = 65528;
  19.  
  20. type
  21.   LongRec = record
  22.     Lo : Word;
  23.     Hi : Word;
  24.   end;
  25.  
  26. type
  27.   WordRec = record
  28.     Lo : Byte;
  29.     Hi : Byte;
  30.   end;
  31.  
  32. type
  33.   PChar = ^CharArray;
  34.  
  35.   CharArray = array[0..MaxPChar] of Char;
  36.  
  37. type
  38.   PMemoryStream = ^TMemoryStream;
  39.   TMemoryStream = object(TStream)
  40.     constructor Init (ASize: Word);
  41.     destructor Done; virtual;
  42.     function GetPos: LongInt; virtual;
  43.     function GetSize : LongInt; virtual;
  44.     procedure Read (var Buf; Count: Word); virtual;
  45.     procedure Seek (Pos: LongInt); virtual;
  46.     procedure Write(var Buf; Count: Word); virtual;
  47.   private
  48.     Size : Word;
  49.     CurPos : Word;
  50.     Data : Pointer;
  51.   end; { TMemoryStream }
  52.  
  53. function StrComp (Str1, Str2 : PChar) : Integer;
  54.  
  55. function StrIComp (Str1, Str2 : PChar) : Integer;
  56.  
  57. procedure StrDispose (Str : PChar);
  58.  
  59. function StrLen (Str : PChar) : Word;
  60.  
  61. function StrNew (Str : PChar) : PChar;
  62.  
  63. function StrPas (Str : PChar) : String;
  64.  
  65. function StrRead (var S : TStream) : PChar;
  66.  
  67. procedure StrWrite (var S : TStream; Str : PChar);
  68.  
  69. implementation
  70. end.
  71.